home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / pdf_main.ps < prev    next >
Encoding:
Text File  |  2002-11-06  |  29.5 KB  |  939 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_main.ps,v 1.63 2002/11/05 20:56:02 ghostgum Exp $
  17. % pdf_main.ps
  18. % PDF file- and page-level operations.
  19.  
  20. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  21. .currentglobal true .setglobal
  22. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  23. pdfdict begin
  24.  
  25. % Patch in an obsolete variable used by some third-party software.
  26. /#? false def
  27.  
  28. % Test whether the current output device handles pdfmark.
  29. /.writepdfmarkdict 1 dict dup /pdfmark null put readonly def
  30. /.writepdfmarks {    % - .writepdfmarks <bool>
  31.   currentdevice //.writepdfmarkdict .getdeviceparams
  32.   mark eq { false } { pop pop true } ifelse
  33.   systemdict /DOPDFMARKS known or 
  34. } bind def
  35.  
  36. % For simplicity, we use a single interpretation dictionary for all
  37. % PDF graphics execution, even though this is too liberal.
  38. /pdfopdict mark
  39.   objopdict { } forall
  40.   drawopdict { } forall
  41.   /endstream { exit } bind
  42.   (%%EOF) cvn { exit } bind        % for filters
  43.     % PDF 1.1 operators
  44.   /BX { /BXlevel BXlevel 1 add store } bind
  45.   /EX { /BXlevel BXlevel 1 sub store } bind
  46.   /PS { cvx exec } bind
  47.     % PDF 1.2 operators
  48.   /BMC { pop } bind
  49.   /BDC { pop pop } bind
  50.   /EMC { }
  51.   /MP { pop } bind
  52.   /DP { pop pop } bind
  53. .dicttomark readonly def
  54.  
  55. % ======================== Main program ======================== %
  56.  
  57. end            % pdfdict
  58. userdict begin
  59.  
  60. /defaultfontname /Times-Roman def
  61.  
  62. % Make sure the registered encodings are loaded, so we don't run the risk
  63. % that some of the indices for their names will overflow the packed
  64. % representation.  (Yes, this is a hack.)
  65. SymbolEncoding pop
  66. DingbatsEncoding pop
  67.  
  68. % Redefine 'run' so it recognizes PDF files.
  69. systemdict begin
  70. /.runps /run load def
  71. /runpdfstring 5 string def
  72. /run {
  73.   dup type /filetype ne { (r) file } if
  74.   dup ( ) .peekstring {
  75.     (%) eq {
  76.       dup (  ) .peekstring {
  77.     (%P) eq {
  78.       dup //runpdfstring {
  79.         % Some invalid files might have extra-long first lines....
  80.         { readstring } .internalstopped not { pop pop exit } if
  81.         pop =string
  82.       } loop
  83.       //runpdfstring (%PDF-) anchorsearch {
  84.         pop pop 
  85.         dup (%stdin) (r) file eq {
  86.           % Copy PDF from stdin to temporary file then run it.
  87.           null (w+) //systemdict /.tempfile get exec exch 3 1 roll
  88.           % stack: tempname stdin tempfile
  89.           dup //runpdfstring writestring
  90.           1024 string
  91.           {
  92.         % stack: tempname stdin tempfile string
  93.         2 index 1 index readstring
  94.         exch 3 index exch writestring
  95.         not { exit } if
  96.           }
  97.           loop
  98.           pop exch closefile
  99.           % stack: tempname tempfile
  100.           dup 0 setfileposition
  101.           dup runpdf
  102.           closefile deletefile
  103.         } {
  104.           runpdf
  105.         } ifelse
  106.       } {
  107.         pop cvx .runexec
  108.       } ifelse
  109.     } {
  110.       cvx .runps
  111.     } ifelse
  112.       } {
  113.     closefile
  114.       } ifelse
  115.     } {
  116.       cvx .runps
  117.     } ifelse
  118.   } {
  119.     closefile
  120.   } ifelse
  121. } bind odef
  122. currentdict /runpdfstring .undef
  123.  
  124. /runpdf {        % <file> runpdf -
  125.    userdict begin
  126.     % It turns out that the PDF interpreter uses memory more
  127.     % effectively if it is run under at least one level of save.
  128.     % This is counter-intuitive, and we don't understand why it happens,
  129.     % but the improvement is significant.
  130.    /PDFTopSave save def
  131.    0 setobjectformat
  132.    /Page# null def
  133.    /Page null def
  134.    /DSCPageCount 0 def
  135.    /PDFSave null def
  136.    GS_PDF_ProcSet begin
  137.    pdfdict begin
  138.    pdfopen begin
  139.    Trailer /Root oget /Pages oget /CropBox knownoget
  140.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  141.     }
  142.    if
  143.    /FirstPage where 
  144.     { pop FirstPage dup pdfpagecount gt
  145.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  146.         pdfpagecount = flush
  147.       } if
  148.     } {
  149.       1
  150.     } ifelse
  151.    1
  152.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  153.    2 index 1 index gt
  154.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  155.     { QUIET not
  156.       { (Processing pages ) print 2 index =only ( through ) print dup =only
  157.         (.) = flush
  158.       }
  159.      if
  160.     }
  161.    ifelse
  162.     { dup /Page# exch store
  163.       QUIET not { (Page ) print dup == flush } if
  164.       pdfgetpage pdfshowpage
  165.     } for
  166.    Repaired { printrepaired } if
  167.    currentdict pdfclose
  168.    end            % temporary dict
  169.    end            % pdfdict
  170.    end            % GS_PDF_ProcSet
  171.    PDFTopSave restore
  172.    end            % userdict
  173. } bind def
  174. end            % systemdict
  175. % Redefine the procedure that the C code uses for running piped input.
  176. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  177. /.runstdin {
  178.   { (%stdin) run } execute0
  179. } bind def
  180.  
  181. end            % userdict
  182. pdfdict begin
  183.  
  184. % ======================== File parsing ======================== %
  185.  
  186. % Read the cross-reference and trailer sections.
  187.  
  188. /traileropdict mark
  189.   (<<) cvn { mark } bind
  190.   (>>) cvn { { .dicttomark } stopped {
  191.           (   **** File has unbalanced >> in trailer.\n) pdfformaterror
  192.              } if } bind
  193.   ([) cvn { mark } bind        % ditto
  194.   (]) cvn dup load
  195. %  /true true        % see .pdfexectoken in pdf_base.ps
  196. %  /false false        % ibid.
  197. %  /null null        % ibid.
  198.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  199.   /startxref /exit load
  200. .dicttomark readonly def
  201.  
  202. % Because of EOL conversion, lines with fixed contents might be followed
  203. % by one or more blanks.
  204. /lineeq            % <filestr> <conststr> lineeq <bool>
  205.  { anchorsearch
  206.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  207.     { pop false }
  208.    ifelse
  209.  } bind def
  210. /linene { lineeq not } bind def
  211.  
  212. % Read (mostly scan) the cross-reference table.
  213. /readxref        % <pos> readxref <trailerdict>
  214.  { PDFoffset add PDFfile exch setfileposition
  215.         % In some PDF files, this position actually points to
  216.         % white space before the xref line.  Skip over this here.
  217.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  218.    } loop
  219.    PDFfile exch setfileposition
  220.         % The PDF specification says that the 'xref' must be on a line
  221.         % by itself. The code here formerly used readline and linene to
  222.         % check this. However, Acrobat Reader only requires the line to
  223.         % begin with 'xref', and there are enough applications producing
  224.         % non-compliant PDF files that we have to do this too.
  225.    PDFfile pdfstring 0 4 getinterval readstring pop
  226.    (xref) ne { /readxref cvx /syntaxerror signalerror } if
  227.         % Store the xref table entry position for each object.
  228.         % We only need to read the run headers, not every entry.
  229.     { PDFfile token pop        % first object # or trailer
  230.       dup /trailer eq { pop exit } if
  231.       PDFfile pdfstring readline pop
  232.       token pop            % entry count
  233.       exch pop exch
  234.         % This section might be adding new objects:
  235.         % ensure that Objects and Generations are big enough.
  236.         % Stack: count obj#
  237.       2 copy add growPDFobjects
  238.       PDFfile fileposition 3 -1 roll
  239.        { Objects 2 index lget null eq    % later update might have set it
  240.       { Objects 2 index 2 index cvx lput }
  241.          if exch 1 add exch 20 add
  242.        }
  243.       repeat PDFfile exch setfileposition pop
  244.     } loop
  245.    count /pdfemptycount exch def
  246.    PDFfile traileropdict .pdfrun
  247.  } bind def
  248.  
  249. % Open a PDF file and read the header, trailer, and cross-reference.
  250. /pdfopen {        % <file> pdfopen <dict>
  251.     % Color space substitution in PDF is handled somewhat differently
  252.     % than in PostScript. A given device color space will be substituted
  253.     % if the corresponding "Default..." entry exists in the Page's
  254.     % Resource dictionary (which might be inhereted); there is no
  255.     % UseCIEColor to enable/disable color mapping.
  256.     %
  257.     % This behavior is achieved by always setting UseCIEColor to true
  258.     % in the page device dictionary. If the value of this parameter was
  259.     % originally false (i.e.: the output device does not perform color
  260.     % space substitution by default), the instances DefaultGray,
  261.     % DefaultRGB, and DefaultCMYK of the (local) ColorSpace category
  262.     % are redefined to be DeviceGray, DeviceRGB, and DeviceCMYK,
  263.     % respectively. This is not done if UseCIEColor is true by default,
  264.     % as in that case color substitution is presumably desired even
  265.     % if the file does not request it.
  266.    currentpagedevice /UseCIEColor .knownget dup { pop } if not
  267.     { .currentglobal false .setglobal
  268.       /DefaultGray { /DeviceGray } cvlit /ColorSpace defineresource pop
  269.       /DefaultRGB { /DeviceRGB } cvlit /ColorSpace defineresource pop
  270.       /DefaultCMYK { /DeviceCMYK } cvlit /ColorSpace defineresource pop
  271.       .setglobal
  272.     }
  273.    if
  274.   pdfopenfile begin
  275.   pdfopencache
  276.   .writepdfmarks {
  277.     % Copy bookmarks (outline) to the output.
  278.     Trailer /Root oget /Outlines knownoget {
  279.       /First knownoget {
  280.     { dup writeoutline /Next knownoget not { exit } if } loop
  281.       } if
  282.     } if
  283.   } if        % end .writepdfmarks
  284.   currentdict end
  285. } bind def
  286. /pdfopencache {        % - pdfopencache -
  287.     % Create and initialize some caches.
  288.   /PageCount pdfpagecount def
  289.   /PageNumbers PageCount 65534 .min dict def
  290.   /PageIndex PageCount 65534 .min array def
  291. } bind def
  292. /pdfopenfile {        % <file> pdfopenfile <dict>
  293.    pdfdict readonly pop        % can't do it any earlier than this
  294.    15 dict begin
  295.    /LocalResources 0 dict def
  296.    /DefaultMatrix null def    % establish binding
  297.    /Printed where { pop } {
  298.         % Guess whether the output device is a printer.
  299.      /Printed currentpagedevice /OutputFile known def
  300.    } ifelse
  301.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  302.    % NB: PDFfile is used outside of the PDF code to determine that a
  303.    % PDF job is being processed; to not change or hide this key.
  304.    cvlit /PDFfile exch def
  305.    /PDFsource PDFfile def
  306.    /Repaired false def
  307.    PDFfile dup 0 setfileposition pdfstring readstring 
  308.    not {/pdfopen cvx /syntaxerror signalerror} if
  309.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  310.    length /PDFoffset exch def pop cvr /PDFversion exch def
  311.    findxref
  312.    initPDFobjects
  313.     % Read the last cross-reference table.
  314.    readxref /Trailer exch def
  315.    Trailer /Encrypt known
  316.     { pdf_process_Encrypt    % signal error
  317.     }
  318.    if
  319.     % Read any previous cross-reference tables.
  320.    Trailer { /Prev knownoget not { exit } if readxref } loop
  321.    currentdict end
  322.  } bind def
  323.  
  324. % Skip backward over the %%EOF at the end of the PDF file, and read
  325. % the preceding startxref line.  The PDF specification unambiguously
  326. % requires that the %%EOF appear on a line by itself, and that the
  327. % startxref and the following position value appear on separate lines;
  328. % however, some applications (including, apparently, Acrobat Distiller
  329. % on the Macintosh) may add up to 2K of garbage after the %%EOF, and some
  330. % other applications also truncate the %%EOF to %%EO, and/or put the
  331. % startxref and the following value on the same line.
  332. % A file reported from Distiller 3.02b for AIX 4.1.1 has 2076 bytes
  333. % of garbage. The tolerance is increased to 4K to cover future
  334. % applications and bigger allocation units.
  335. /findxref {        % - findxref <xrefpos>
  336.   PDFfile dup dup 0 setfileposition bytesavailable
  337.   dup /PDFfilelen exch def
  338.     % Find the last %%EOF string (within 4096 bytes)
  339.   4096 sub PDFoffset .max
  340.   2 copy setfileposition
  341.   PDFfilelen exch sub string 1 index exch readstring pop {
  342.     (\015%%EO) search {        % Adobe can handle truncated key string
  343.       pop pop            % if found, keep searching 'post' string
  344.     } {
  345.       (\012%%EO) search
  346.     { pop pop } { exit } ifelse    % exit if neither string found
  347.     } ifelse
  348.   } loop
  349.   PDFfilelen exch length sub 4 sub PDFoffset .max exch 1 index setfileposition
  350.     % Stack: eofpos
  351.     % Check for whether this is, in fact, a valid PDF file.
  352.   dup PDFfilelen exch sub dup dup 7 gt exch 6 lt or {
  353.     pop true
  354.   } {
  355.     string PDFfile exch readstring pop
  356.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  357.     exch (%%EOF\r\n) eq or or not
  358.   } ifelse {
  359.     (   **** Warning: File has a corrupted %%EOF marker, or garbage after %%EOF.\n)
  360.     pdfformaterror
  361.   } if
  362.   PDFfile exch setfileposition
  363.     % Now read the startxref and xref start position.
  364.   prevline token not { null } if dup type /integertype eq {
  365.     exch pop cvi        % xref start position
  366.     exch PDFfile exch setfileposition
  367.     prevline (startxref) linene { /findxref cvx /syntaxerror signalerror } if
  368.     pop
  369.   } {    % else, this file has 'startxref #####' format
  370.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  371.     cvi        % xref start position
  372.     (   **** Warning: format of the startxref line in this file is invalid.\n)
  373.     pdfformaterror
  374.     exch PDFfile exch setfileposition
  375.   } ifelse
  376. } bind def
  377. /stderrfile (%stderr) (w) file def
  378. /stderrprint {                % <string> stderrprint -
  379.   //stderrfile dup 3 -1 roll writestring flushfile
  380. } bind def
  381. /pdfformaterror {    % <string> pdfformaterror -
  382.   stderrprint
  383.   /Repaired true store
  384. } bind def
  385.  
  386. /knownoget_safe
  387. { knownoget
  388. } odef
  389.  
  390. /printProducer {
  391.   Trailer /Info { knownoget_safe } stopped { false } if {
  392.     /Producer knownoget not { null } if
  393.   } {
  394.     null
  395.   } ifelse
  396.   dup null eq {
  397.     pop
  398.   } {
  399.     (   **** The file was produced by: \n   **** >>>> ) stderrprint
  400.     % Handle a Unicode Producer.
  401.     (\376\377) anchorsearch {
  402.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  403.         % Stack: origstr newstr i
  404.     1 index exch 3 index 1 index 2 mul 1 add get put
  405.       } for exch pop
  406.     } if
  407.     stderrprint
  408.     ( <<<<\n) stderrprint
  409.   } ifelse
  410. } bind def
  411. /printrepaired {
  412.    (\n   **** This file had errors that were repaired or ignored.\n)
  413.   stderrprint
  414.   printProducer
  415.   (   **** Please notify the author of the software that produced this\n)
  416.   stderrprint
  417.   (   **** file that it does not conform to Adobe's published PDF\n)
  418.   stderrprint
  419.   (   **** specification.\n\n)
  420.   stderrprint
  421. } bind def
  422.  
  423. % Write the outline structure for a file.  Uses linkdest (below).
  424. /writeoutline        % <outlinedict> writeoutline -
  425.  { mark
  426.    0 2 index /First knownoget
  427.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  428.    if
  429.         % stack: dict mark count
  430.    dup 0 eq
  431.     { pop 1 index
  432.     }
  433.     { 2 index /Count knownoget { 0 lt { neg } if } if
  434.       /Count exch 3 index
  435.     }
  436.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  437.    /First knownoget
  438.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  439.    if
  440.  } bind def
  441.  
  442. % Close a PDF file.
  443. /pdfclose        % <dict> pdfclose -
  444.  { begin
  445.    PDFfile closefile
  446.    end
  447.  } bind def
  448.  
  449. % ======================== Page accessing ======================== %
  450.  
  451. % Get a (possibly inherited) attribute of a page.
  452. /pget            % <pagedict> <key> pget <value> -true-
  453.             % <pagedict> <key> pget -false-
  454.  { 2 copy knownoget
  455.     { exch pop exch pop true
  456.     }
  457.     { exch /Parent knownoget
  458.        { exch pget }
  459.        { pop false }
  460.       ifelse
  461.     }
  462.    ifelse
  463.  } bind def
  464.  
  465. % Get the value of a resource on a given page.
  466. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  467.             % <resname> <pagedict> <restype> rget -false-
  468.   LocalResources 1 index knownoget {
  469.      3 index knownoget
  470.   } {
  471.     false
  472.   } ifelse {
  473.     exch pop exch pop exch pop true
  474.   } {
  475.     exch /Resources pget {
  476.       exch knownoget { exch knownoget } { pop false } ifelse
  477.     } {
  478.       pop pop false
  479.     } ifelse
  480.   } ifelse
  481. } bind def
  482.  
  483. % Get the total number of pages in the document.
  484. /pdfpagecount        % - pdfpagecount <int>
  485.  { Trailer /Root oget /Pages oget /Count oget
  486.  } bind def
  487.  
  488. % Find the N'th page of the document by iterating through the Pages tree.
  489. % The first page is numbered 1.
  490. /pdffindpageref {        % <int> pdffindpage <objref>
  491.   dup Trailer /Root oget /Pages get
  492.     {        % We should be able to tell when we reach a leaf
  493.         % by finding a Type unequal to /Pages.  Unfortunately,
  494.         % some files distributed by Adobe lack the Type key
  495.         % in some of the Pages nodes!  Instead, we check for Kids.
  496.       dup oforce /Kids knownoget not { exit } if
  497.       exch pop null
  498.       0 1 3 index length 1 sub {
  499.          2 index exch get
  500.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  501.         % Stack: index kids null noderef count
  502.      dup 5 index ge { pop exch pop exit } if
  503.      5 -1 roll exch sub 4 1 roll pop
  504.       } for exch pop
  505.         % Stack: index null|noderef
  506.       dup null eq { pop pop 1 null exit } if
  507.     } loop
  508.         % Stack: index countleft noderef
  509.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  510.    exch pop
  511.    PageIndex 2 index 1 sub 65533 .min 2 index oforce put
  512.    PageNumbers 1 index oforce 3 index dup 65534 le
  513.     { put }
  514.     { pop pop pop }    % don't store more than 65534 pagenumbers
  515.    ifelse
  516.    exch pop
  517. } bind def
  518. /pdffindpage {        % <int> pdffindpage <pagedict>
  519.   pdffindpageref oforce
  520. } bind def
  521.  
  522. % Find the N'th page of the document.
  523. % The first page is numbered 1.
  524. /pdfgetpage        % <int> pdfgetpage <pagedict>
  525.  { PageIndex 1 index 1 sub dup 65533 lt
  526.     { get }
  527.     { pop pop null }
  528.    ifelse
  529.    dup null ne
  530.     { exch pop oforce }
  531.     { pop pdffindpage }
  532.    ifelse
  533.  } bind def
  534.  
  535. % Find the page number of a page object (inverse of pdfgetpage).
  536. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  537.  {    % We use the simplest and stupidest of all possible algorithms....
  538.    PageNumbers 1 index .knownget
  539.     { exch pop
  540.     }
  541.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  542.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  543.        }
  544.       for exch pop
  545.     }
  546.    ifelse
  547.  } bind def
  548.  
  549. % Display a given page.
  550. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  551.  { aload pop exch 3 index sub exch 2 index sub
  552.  } bind def
  553. /resolvedest {        % <name|string|other> resolvedest <other|null>
  554.   dup type /nametype eq {
  555.     Trailer /Root oget /Dests knownoget {
  556.       exch knownoget not { null } if
  557.     } {
  558.       pop null
  559.     } ifelse
  560.   } {
  561.     dup type /stringtype eq {
  562.       Trailer /Root oget /Names knownoget {
  563.     /Dests knownoget {
  564.       exch nameoget
  565.     } {
  566.       pop null
  567.     } ifelse
  568.       } {
  569.     pop null
  570.       } ifelse
  571.     } if
  572.   } ifelse
  573. } bind def
  574. /linkdest {        % <link|outline> linkdest
  575.             %   ([/Page <n>] /View <view> | ) <link|outline>
  576.   dup /Dest knownoget
  577.     { resolvedest
  578.       dup type /dicttype eq { /D knownoget not { null } if } if
  579.       dup null eq
  580.        { pop }
  581.        { dup 0 oget
  582.      dup null eq
  583.       { pop }
  584.       { dup type /integertype ne { pdfpagenumber } if
  585.         /Page exch 4 -2 roll
  586.       }
  587.      ifelse
  588.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  589.        }
  590.       ifelse
  591.     }
  592.    if
  593. } bind def
  594. % <pagedict> mark ... -proc- -
  595. /namedactions 8 dict dup begin
  596.   /FirstPage {
  597.     /Page 1 3 -1 roll
  598.   } def
  599.   /LastPage {
  600.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  601.   } def
  602.   /NextPage {
  603.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  604.   } def
  605.   /PrevPage {
  606.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  607.   } def
  608. end readonly def
  609. % <pagedict> <annotdict> -proc- -
  610. /annottypes 5 dict dup begin
  611.   /Text {
  612.     mark exch
  613.      { /Rect /Open /Contents }
  614.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  615.     forall pop /ANN pdfmark
  616.   } bind def
  617.   /Link {
  618.     mark exch
  619.     dup /C knownoget { /Color exch 3 -1 roll } if
  620.      { /Rect /Border }
  621.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  622.     forall dup /A knownoget {
  623.       dup /URI known {
  624.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  625.         { oforce } forall
  626.         .dicttomark
  627.         3 2 roll
  628.       } {
  629.         dup /D knownoget {
  630.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  631.         } {
  632.       /N knownoget {        % Assume /S /Named
  633.          namedactions exch .knownget { exec } if
  634.       } if
  635.         } ifelse
  636.       } ifelse
  637.     } if
  638.     linkdest pop /LNK pdfmark
  639.   } bind def
  640. end readonly def
  641.  
  642. % **** The following procedure should not be changed to allow clients
  643. % **** to directly interface with the constituent procedures. GSview
  644. % **** and some Artifex customers rely on the pdfshowpage_init,
  645. % **** pdfshowpage_setpage, pdfshowpage_finish so all logic should be
  646. % **** implemented in one of those three procedures.
  647. /pdfshowpage        % <pagedict> pdfshowpage -
  648.  { dup /Page exch store
  649.    pdfshowpage_init 
  650.    pdfshowpage_setpage 
  651.    pdfshowpage_finish
  652.  } bind def
  653.  
  654. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  655.  { } bind def
  656.  
  657. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  658.  { /DSCPageCount DSCPageCount 1 add store
  659.  } bind def
  660.  
  661. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  662.   exch
  663.     % We would like to clip to the CropBox here, but the subsequent
  664.     % initgraphics would override it.  Instead, we have to handle it
  665.     % in graphicsbeginpage.
  666.   dup /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  667.     dup /CropBox pget pop dup 0 get neg exch 1 get neg translate
  668.   } {
  669.     dup /MediaBox pget {
  670.       dup 0 get neg exch 1 get neg translate
  671.     } if
  672.   } ifelse
  673.   pop 0 get exec
  674. } bind def
  675.  
  676. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  677.   5 dict begin        % for setpagedevice
  678.     % Stack: pagedict
  679.   % UseCIEColor is always true for PDF; see the comment in runpdf above
  680.   /UseCIEColor true def
  681.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  682.     % Rotate specifies *clockwise* rotation!
  683.     neg 3 and def
  684.     % Stack: pagedict currentpagedict
  685.   1 index /CropBox pget dup {exch pop} if systemdict /UseCropBox known and {
  686.             % Set the page size.
  687.     1 index /CropBox pget pop
  688.     boxrect 2 array astore /PageSize exch def pop pop
  689.   } {
  690.     1 index /MediaBox pget {
  691.             % Set the page size.
  692.       boxrect 2 array astore /PageSize exch def pop pop
  693.     } if
  694.   } ifelse
  695.   dup /Install .knownget {
  696.             % Don't let the Install procedure get more deeply
  697.             % nested after every page.
  698.       dup type dup /arraytype eq exch /packedarraytype eq or {
  699.     dup length 4 eq {
  700.       dup 2 get /.pdfshowpage_Install load eq {
  701.         1 get 0 get    % previous procedure
  702.       } if
  703.     } if
  704.       } if
  705.   } {
  706.     { }
  707.   } ifelse 1 array astore
  708.   2 index exch /.pdfshowpage_Install load /exec load
  709.   4 packedarray cvx
  710.     % Stack: pagedict currentpagedict installproc
  711.   /Install exch def
  712.     % Stack: pagedict currentpagedict
  713.   pop currentdict end setpagedevice
  714. } bind def
  715.  
  716. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  717.    save /PDFSave exch store
  718.    /PDFdictstackcount countdictstack store
  719.    (before exec) VMDEBUG
  720.  
  721.    % set up color space substitution (this must be inside the page save)
  722.    pdfshowpage_setcspacesub
  723.  
  724.   .writepdfmarks {
  725.  
  726.     % Copy the crop box.
  727.     dup /CropBox knownoget {
  728.     % If the page has been rotated, rotate the CropBox.
  729.       mark /CropBox 3 -1 roll
  730.       3 index /Rotate pget {
  731.     90 idiv 1 and 0 ne {
  732.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  733.     } if
  734.       } if
  735.       /PAGE pdfmark
  736.     } if
  737.  
  738.     % Copy annotations and links.
  739.     dup /Annots knownoget {
  740.       0 1 2 index length 1 sub
  741.        { 1 index exch oget
  742.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  743.        }
  744.       for pop
  745.     } if
  746.  
  747.   } if        % end .writepdfmarks
  748.  
  749.     % Display the actual page contents.
  750.    6 dict begin
  751.    /BXlevel 0 def
  752.    /BGDefault currentblackgeneration def
  753.    /UCRDefault currentundercolorremoval def
  754.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  755.    /TRDefault currenttransfer def
  756.   matrix currentmatrix 2 dict
  757.   2 index /CropBox knownoget {
  758.     boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  759.   } if
  760.   dictbeginpage /DefaultMatrix 1 index store setmatrix
  761.   dup          % for showing annotations below
  762.   count 1 sub /pdfemptycount exch store
  763.     % If the page uses any transparency features, show it within
  764.     % a transparency group.
  765.   PDFversion 1.4 lt NOTRANSPARENCY or {
  766.     showpagecontents
  767.   } {
  768.     dup pageusestransparency {
  769.       % Show the page within a PDF 1.4 device filter.
  770.       0 .pushpdf14devicefilter {
  771.     % If the page has a Group, enclose contents in transparency group.
  772.         % (Adobe Tech Note 5407, sec 9.2)
  773.         dup /Group knownoget {
  774.       1 index /CropBox knownoget not {
  775.         1 index /MediaBox oget
  776.       } if .beginformgroup {
  777.         showpagecontents
  778.       } .internalstopped {
  779.         .discardtransparencygroup stop
  780.       } if .endtransparencygroup
  781.         } {
  782.       showpagecontents
  783.         } ifelse
  784.       } .internalstopped {
  785.     % todo: discard
  786.     .popdevicefilter stop
  787.       } if .popdevicefilter
  788.     } {
  789.       showpagecontents
  790.     } ifelse
  791.   } ifelse
  792.   % check for extra garbage on the ostack and clean it up
  793.   count pdfemptycount sub dup 0 ne {
  794.     (   **** File did not complete the page properly and may be damaged.\n)
  795.     pdfformaterror
  796.     { pop } repeat
  797.   } {
  798.     pop
  799.   } ifelse
  800.   % todo: mixing drawing ops outside the device filter could cause
  801.   % problems, for example with the pnga device.
  802.   /Annots knownoget { { oforce drawannot } forall } if
  803.   endpage
  804.   end            % scratch dict
  805.   % Some PDF files don't have matching q/Q (gsave/grestore) so we need
  806.   % to clean up any left over dicts from the dictstack
  807.   countdictstack PDFdictstackcount sub dup 0 ne { 
  808.     (   **** Warning: File has imbalanced q/Q operators \(too many q's\)\n)
  809.     pdfformaterror
  810.     { end } repeat
  811.   } {
  812.     pop
  813.   } ifelse
  814.   (after exec) VMDEBUG
  815.   Repaired        % pass Repaired state around the restore
  816.   PDFSave restore
  817.   /Repaired exch def
  818. } bind def
  819. /showpagecontents {    % <pagedict> showpagecontents -
  820.   gsave        % preserve gstate for Annotations later
  821.   /Contents knownoget not { 0 array } if
  822.   dup type /arraytype ne { 1 array astore } if {
  823.     oforce false resolvestream pdfopdict .pdfrun
  824.   } forall
  825.   grestore
  826. } bind def
  827. /processcolorspace {    % - processcolorspace <colorspace>
  828.     % The following is per the PLRM3.
  829.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  830.   exch pop exch pop
  831.   dup type /nametype ne { cvn } if
  832.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  833. } bind def
  834.  
  835. % ------ Transparency support ------ %
  836.  
  837. % Determine whether a page might invoke any transparency features:
  838. %    - Non-default BM, ca, CA, or SMask in an ExtGState
  839. %    - Image XObject with SMask
  840. % Note: we deliberately don't check to see whether a Group is defined,
  841. % because Adobe Illustrator 10 (and possibly other applications) define
  842. % a page-level group whether transparency is actually used or not.
  843. % Ignoring the presence of Group is justified because, in the absence
  844. % of any other transparency features, they have no effect.
  845. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  846.   PDFversion 1.4 lt NOTRANSPARENCY or {
  847.     pop false
  848.   } {
  849.     false exch {
  850.       dup resourceusestransparency { pop not exit } if
  851.       /Parent knownoget not { exit } if
  852.     } loop
  853.   } ifelse
  854. } bind def
  855. % Check the Resources of a page or Form.
  856. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  857.   {    % Use loop to provide an exitable context.
  858.     /Resources knownoget not { 0 dict } if
  859.     dup /ExtGState knownoget {
  860.       false exch {
  861.     exch pop oforce
  862.     dup /BM knownoget { dup /Normal ne exch /Compatible ne and
  863.                         { pop not exit } if
  864.                           } if
  865.     dup /ca knownoget { 1 ne { pop not exit } if } if
  866.     dup /CA knownoget { 1 ne { pop not exit } if } if
  867.     dup /SMask knownoget { /None ne { pop not exit } if } if
  868.     pop
  869.       } forall { pop true exit } if
  870.     } if
  871.     dup /XObject knownoget {
  872.       false exch {
  873.     exch pop oforce dup /Subtype get
  874.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  875.     /Form eq {
  876.       resourceusestransparency { not exit } if
  877.     } {
  878.       pop
  879.     } ifelse
  880.       } forall { pop true exit } if
  881.     } if
  882.     pop false exit
  883.   } loop
  884. } bind def
  885.  
  886. % ------ ColorSpace substitution support ------ %
  887.  
  888. %
  889. %  <pagedict>   pdfshowpage_setcspacesub   <pagedict>
  890. %
  891. % Set up color space substitution for a page. Invocations of this procedure
  892. % must be bracketed by the save/restore operation for the page, to avoid
  893. % unintended affects on other pages.
  894. %
  895. % If any color space substitution is used, and the current color space is a
  896. % device dependent color space, make sure the current color space is updated.
  897. % There is an optimization in the setcolorspace pseudo-operator that does
  898. % nothing if both the current and operand color spaces are the same. For
  899. % PostScript this optimization is disabled if the UseCIEColor page device
  900. % parameter is true. This is not the case for PDF, as performance suffers
  901. % significantly on some PDF files if color spaces are set repeatedly. Hence,
  902. % if color space substitution is to be used, and the current color space
  903. % is a device dependent color space, we must make sure to "transition" the
  904. % current color space.
  905. %
  906. /pdfshowpage_setcspacesub
  907.   {
  908.     false
  909.       { /DefaultGray /DefaultRGB /DefaultCMYK }
  910.       {
  911.         dup 3 index /ColorSpace //rget exec
  912.           { resolvecolorspace /ColorSpace defineresource pop }
  913.           { pop }
  914.         ifelse
  915.       }
  916.     forall
  917.  
  918.     % if using color space substitution, "transition" the current color space
  919.       {
  920.         currentcolorspace dup length 1 eq   % always an array
  921.           {
  922.             0 get
  923.             dup /DeviceGray eq 1 index /DeviceRGB eq or 1 index /DeviceCMYK or
  924.               { /Pattern setcolorspace setcolorspace }
  925.               { pop }
  926.             ifelse
  927.           }
  928.           { pop }
  929.         if
  930.       }
  931.     if
  932.   }
  933. bind def
  934.  
  935.  
  936.  
  937. end            % pdfdict
  938. .setglobal
  939.